object FClSrc: TFClSrc
  Left = 24
  Top = 15
  HelpContext = 200
  ActiveControl = sg1
  AutoScroll = False
  Caption = 'Import address'
  ClientHeight = 374
  ClientWidth = 605
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel6: TBevel
    Left = 320
    Top = 26
    Width = 279
    Height = 180
    Style = bsRaised
  end
  object Bevel2: TBevel
    Left = 4
    Top = 26
    Width = 279
    Height = 180
    Style = bsRaised
  end
  object sbPlus: TSpeedButton
    Left = 283
    Top = 178
    Width = 37
    Height = 47
    Hint = 'Insert selected  field conditions| Click left button mouse'
    Enabled = False
    Glyph.Data = {
      76040000424D7604000000000000760000002800000040000000200000000100
      0400000000000004000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      444FF6FFFFFFFFFFFFFFFFFFFFFFFFFF777FFFFFFFFFFFFFFFFFFFFFFFFFFFF4
      4444666FFFFFFFFFFFFFFFFFFFFFFFF77777FF7FFFFFFFFFFFFFFFFFFFFFFF44
      44444666FFFFFFFFFFFFFFFFFFFFFF7777777F77FFFFFFFFFFFFFFFFFFFFF444
      444444666FFFFFFFFFFFFFFFFFFFF777777777F77FFFFFFFFFFFFFFFFFFF4444
      4444444666FFFFFFFFFFFFFFFFFF77777777777F77FFFFFFFFFFFFFFFFF44444
      44444444666FFFFFFFFFFFFFFFF7777777777777F77FFFFFFFFFFFFFFF444444
      444444444666FFFFFFFFFFFFFF777777777777777F77FFFFFFFFFFFFF4444444
      4444444444666FFFFFFFFFFFF77777777777777777F77FFFFFFFFFFF44444444
      44444444444666FFFFFFFFFF7777777777777777777F77FFFFFFFFF444444444
      444444444444666FFFFFFFF777777777777777777777F77FFFFFFF4444444444
      4444444444444666FFFFFF77777777777777777777777F77FFFFF44444444444
      44444444444444666FFFF7777777777777777777777777F77FFFFFFFFFF44444
      444444446666666666FFFFFFFFF7777777777777FFFFFFFF77FFFFFFFFF44444
      444444446666FFFFFFFFFFFFFFF7777777777777F7777777777FFFFFFFF44444
      444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF44444
      444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF44444
      444444446666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF46464
      646464646666FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF64646
      464646466E6EFFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF46464
      64646464E6E6FFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFFF66666
      666666666E6EFFFFFFFFFFFFFFF7777777777777F777FFFFFFFFFFFFFF666666
      6666666EEEEEFFFFFFFFFFFFFF7777777777777FF777FFFFFFFFFFFFFE6E6E6E
      6E6E6E6EEEEEEFFFFFFFFFFFF7777777777777FF77777FFFFFFFFFFEEEEEEEEE
      EEEEAEAEAEAEAEFFFFFFFFF77777777777777FF7777777FFFFFFFEEEEEEEEEEE
      EEEAAAAAAAAAAAAAFFFFF77777777777777FFF7777777777FFFFEEEEEEEEEEEE
      EFFFAAAAAAAAAAAAAAFF7777777777777FFF77777777777777FFFFFFFFFFFFFF
      FFFFFFAAAAAAAAAAAAAFFFFFFFFFFFFFFFFFFF7777777777777FFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = sbPlusClick
  end
  object Bevel3: TBevel
    Left = 282
    Top = 228
    Width = 315
    Height = 105
    Style = bsRaised
  end
  object Gauge1: TGauge
    Left = 286
    Top = 24
    Width = 31
    Height = 153
    Color = clNavy
    Kind = gkVerticalBar
    ShowText = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ForeColor = clAqua
    BackColor = clSilver
    ParentColor = False
    ParentFont = False
    Progress = 50
    Visible = False
  end
  object LbKolzap: TLabel
    Left = 286
    Top = 4
    Width = 3
    Height = 13
  end
  object Gauge2: TGauge
    Left = 22
    Top = 210
    Width = 235
    Height = 14
    Color = clNavy
    ShowText = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ForeColor = clAqua
    BackColor = clSilver
    ParentColor = False
    ParentFont = False
    Progress = 50
    Visible = False
  end
  object Label1: TLabel
    Left = 36
    Top = 268
    Width = 74
    Height = 13
    Caption = 'Field separation'
  end
  object sg1: TStringGrid
    Left = 8
    Top = 30
    Width = 270
    Height = 170
    Hint = 
      'Table-Sender| Mark field: '#39'+'#39' ,click left button mouse  ;  Cance' +
      'llation: '#39'-'#39
    BorderStyle = bsNone
    Ctl3D = True
    DefaultRowHeight = 15
    DefaultDrawing = False
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnDrawCell = sg1DrawCell
    OnEnter = sg1Enter
    OnExit = sg1Exit
    OnKeyDown = sg1KeyDown
    OnMouseDown = sg1MouseDown
    ColWidths = (
      32
      64
      101
      25
      30)
  end
  object sg2: TStringGrid
    Left = 324
    Top = 30
    Width = 270
    Height = 170
    Hint = 
      'Table-recipient|Mark field : '#39'+'#39' , click left button mouse ; Can' +
      'cellation : '#39'-'#39
    BorderStyle = bsNone
    Ctl3D = True
    DefaultRowHeight = 15
    DefaultDrawing = False
    FixedColor = clSilver
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDrawCell = sg1DrawCell
    OnEnter = sg1Enter
    OnExit = sg1Exit
    OnKeyDown = sg1KeyDown
    OnMouseDown = sg1MouseDown
    ColWidths = (
      32
      64
      100
      29
      30)
  end
  object sg3: TStringGrid
    Left = 287
    Top = 232
    Width = 305
    Height = 97
    Hint = 'Link fields| Remove  : '#39'-'#39
    BorderStyle = bsNone
    Color = clWhite
    ColCount = 3
    Ctl3D = True
    DefaultRowHeight = 15
    DefaultDrawing = False
    FixedCols = 0
    RowCount = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnDrawCell = sg3DrawCell
    OnEnter = sg1Enter
    OnExit = sg1Exit
    OnKeyDown = sg3KeyDown
    ColWidths = (
      147
      18
      127)
  end
  object bbCopy: TBitBtn
    Left = 406
    Top = 340
    Width = 95
    Height = 25
    Caption = 'Copy'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = bbCopyClick
    Glyph.Data = {
      BE060000424DBE06000000000000360400002800000024000000120000000100
      0800000000008802000000000000000000000001000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
      A400000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
      03030303030303030303030303030303030303FFFFFFFFFF0303030303030303
      03030303F8F8F8F8F8F80303030303030303030303FFF8F8F8F8F8F8FFFFFF03
      030303030303F8F8010101010101F8F80303030303030303F8F80303FFFFFF03
      F8F8FFFF0303030303F8010101F9F9F9F9010101F8030303030303F8FF0303F8
      F8F8F8FF0303F8FFFF030303F90101F9F90303030301010101F803030303F8FF
      03F8F803030303F8030303F8FF030303F901010303030303F801010101F80303
      0303F8FFF8FF03030303F80303FF03F8FF0303F90101F803030303F8010101F9
      0101F80303F8FF03F8FF030303F80303FFF8FF03F8FF03F901F803030303F801
      0101F903F901F80303F8FFF8FF030303F80303FFF803F8FFF8FF03F901F80303
      03F8010101F90303F901F80303F8FFF8FF0303F80303FFF80303F8FFF8FF03F9
      01F80303F8010101F9030303F901F80303F8FFF8FF03F80303FFF8030303F8FF
      F8FF03F901F803F8010101F903030303F901F80303F8FFF8FFF80303FFF80303
      0303F803F8FF03F90101F8010101F903030303F90101F80303F8FF03F80303FF
      F803030303F80303F8030303F901010101F90303030303F901F803030303F8FF
      0303FFF8030303FFFFF803F8FF030303F9010101F803030303F8010101F80303
      0303F8FF0303F8FFFFFFFFF8F803FFF80303030303F9010101F8F8F8F8010101
      F8030303030303F8FFFF03F8F8F8F803FFFFF803030303030303F9F901010101
      0101F9F90303030303030303F8F8FFFFFFFFFFFFF8F803030303030303030303
      F9F9F9F9F9F9030303030303030303030303F8F8F8F8F8F80303030303030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 500
    Top = 340
    Width = 95
    Height = 25
    Caption = 'Exit'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Kind = bkCancel
  end
  object bbSrc: TBitBtn
    Left = 4
    Top = 0
    Width = 281
    Height = 23
    Hint = 'Selection table -sender|Click left button mouse'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = bbSrcClick
  end
  object bbDst: TBitBtn
    Left = 319
    Top = 0
    Width = 280
    Height = 23
    Hint = 'Table-recipient'
    Caption = 'Address'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = bbDstClick
  end
  object pnlHint: TPanel
    Left = 2
    Top = 346
    Width = 395
    Height = 17
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object NamegrouptLB: TComboBox
    Left = 6
    Top = 233
    Width = 267
    Height = 21
    Hint = 'Group of address'
    Style = csDropDownList
    Color = clWhite
    Ctl3D = False
    DropDownCount = 30
    ItemHeight = 13
    Items.Strings = (
      'Last Name'
      'First Name'
      'Address')
    ParentCtl3D = False
    TabOrder = 8
  end
  object RGTipAddr: TRadioGroup
    Left = 56
    Top = 288
    Width = 185
    Height = 49
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      'e.mail       '
      'cc  '
      'bcc')
    TabOrder = 9
  end
  object SectionSymbol: TComboBox
    Left = 176
    Top = 264
    Width = 65
    Height = 21
    Style = csDropDownList
    Ctl3D = False
    ItemHeight = 13
    Items.Strings = (
      ','
      '.'
      '/'
      '\'
      '|'
      '+'
      '='
      '-'
      ':'
      ';'
      '<'
      '>'
      '@'
      '!'
      '~'
      '#'
      '$'
      '%'
      '^'
      '&'
      '*'
      '('
      ')'
      '{'
      '}')
    ParentCtl3D = False
    TabOrder = 10
    OnChange = SectionSymbolChange
  end
  object dsSrc: TDataSource
    DataSet = qSrc
    Left = 12
    Top = 34
  end
  object qSrc: TQuery
    DatabaseName = 'VistaMail'
    SQL.Strings = (
      'select * from ClSource')
    Left = 12
    Top = 50
  end
  object dsW: TDataSource
    DataSet = qW
    Left = 88
    Top = 34
  end
  object qW: TQuery
    DatabaseName = 'VistaMail'
    UniDirectional = True
    Left = 88
    Top = 50
  end
  object dsDst: TDataSource
    DataSet = SqDst
    Left = 40
    Top = 34
  end
  object SqDst: TQuery
    AutoCalcFields = False
    DatabaseName = 'VistaMail'
    RequestLive = True
    SQL.Strings = (
      'select * from Client')
    Left = 40
    Top = 50
  end
  object OpDlg: TOpenDialog
    DefaultExt = 'DB'
    Filter = 'DB|*.db|DBF|*.dbf|TXT|*.txt|All|*.*'
    InitialDir = 'C:\BMV\PensNew'
    Left = 122
    Top = 48
  end
  object qDst: TTable
    DatabaseName = 'VistaMail'
    TableName = 'ADRESS5.DB'
    TableType = ttParadox
    Left = 40
    Top = 80
  end
  object TGroup: TTable
    DatabaseName = 'VistaMail'
    TableName = 'GroupNam.db'
    TableType = ttParadox
    Left = 376
    Top = 181
    object TGroupNameGroup: TStringField
      DisplayLabel = 'Name Group'
      DisplayWidth = 30
      FieldName = 'NameGroup'
      Size = 50
    end
    object TGroupSubject: TStringField
      DisplayWidth = 30
      FieldName = 'Subject'
      Size = 100
    end
    object TGroupComment: TStringField
      FieldName = 'Comment'
      Visible = False
      Size = 150
    end
    object TGroupPosG: TAutoIncField
      FieldName = 'PosG'
      Visible = False
    end
    object TGroupNote1: TStringField
      FieldName = 'Note1'
      Size = 50
    end
    object TGroupNote2: TStringField
      FieldName = 'Note2'
      Size = 50
    end
  end
  object TLISTGR: TTable
    DatabaseName = 'VistaMail'
    TableName = 'LISTGR'
    TableType = ttParadox
    Left = 368
    Top = 133
    object TLISTGRPosG: TIntegerField
      FieldName = 'PosG'
    end
    object TLISTGRPosA: TIntegerField
      FieldName = 'PosA'
    end
  end
end